home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Creatures 1.xpl < prev    next >
Text File  |  2000-01-31  |  2KB  |  64 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH"="Program Options\Games\Creatures 2\"
  5. "NAME"="Creatures II Privileges"
  6. "VERSION"="1.04"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="User (Default)"
  9. "TEXT 2"="Blueberry"
  10. "TEXT 3"="CoconutGrove"
  11. "DESCRIPTION 1"="Switch to "Blueberry" or "CoconutGrove" cheat privledges to unlock undocumented features."
  12. "DESCRIPTION 2"="Creatures 2 must be restarted for the changes to take effect if it is already open.
  13. "DESCRIPTION 3"="*IMPORTANT* If you activate one of the cheats, you HAVE TO use "World" -> "Save the World" to save your game as Creatures will no longer do this automatically. *IMPORTANT*"
  14. "COMMENT 1"=" "
  15. "COMMENT 2"="Thanks also to CptSiskoX for his help!"
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19.  
  20. 'Declaration of some constants
  21. sP="HKEY_CURRENT_USER\Software\CyberLife Technology\Creatures 2\1.0\Privileges" 'STR
  22.  
  23. sV1="user"
  24. sV2="blueberry4$"
  25. sV3="coconutgrove"
  26.  
  27.  
  28. 'Called when the Plugin is started
  29. SUB Plugin_Initialize
  30.  s=RegReadValue(sP)
  31.  if IsEmpty(s) then
  32.     Disable()
  33.  else
  34.     if s=sV2 then 
  35.        SetUIElement 2,true
  36.     else
  37.        if s=sV3 then
  38.           SetUIElement 3,true
  39.        else
  40.           SetUIElement 1,true
  41.        end if
  42.     end if
  43.  
  44.  end if
  45.  
  46. END SUB
  47.  
  48. 'Called when the Plugin should validate the Data the user has entered
  49. SUB Plugin_CheckData(ElementIndex)
  50. END SUB
  51.  
  52. 'Called when the Plugin should apply the changes
  53. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  54.  if GetUIElement(1)=true then s=sV1
  55.  if GetUIElement(2)=true then s=sV2
  56.  if GetUIElement(3)=true then s=sV3
  57.  
  58.  Call RegWriteValue(sp,s,1) 
  59. END SUB
  60.  
  61. 'Called when the Plugin is about to be removed from memory
  62. SUB Plugin_Terminate
  63. END SUB
  64.